home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 020 / modula.arc / PCKEYS.DEF < prev    next >
Encoding:
Modula Definition  |  1986-08-20  |  975 b   |  31 lines
  1.  
  2. DEFINITION MODULE PcKeys;
  3.  
  4. EXPORT QUALIFIED
  5.   keybuffer,
  6.   CarriageReturn,BackSpace,Tab,Escape,Home,UpArrow,PageUp,LtArrow,
  7.   RtArrow,End,DnArrow,PageDn,Insert,Delete,ShiftTab,
  8.   F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,
  9.   ShF1,ShF2,ShF3,ShF4,ShF5,ShF6,ShF7,ShF8,ShF9,ShF10,
  10.   CtF1,CtF2,CtF3,CtF4,CtF5,CtF6,CtF7,CtF8,CtF9,CtF10,
  11.   AtF1,AtF2,AtF3,AtF4,AtF5,AtF6,AtF7,AtF8,AtF9,AtF10,
  12.   CompareKey,InKey,SpecialKey;
  13.  
  14. VAR
  15.   keybuffer,
  16.   CarriageReturn,BackSpace,Tab,Escape,Home,UpArrow,PageUp,LtArrow,
  17.   RtArrow,End,DnArrow,PageDn,Insert,Delete,ShiftTab,
  18.   F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,
  19.   ShF1,ShF2,ShF3,ShF4,ShF5,ShF6,ShF7,ShF8,ShF9,ShF10,
  20.   CtF1,CtF2,CtF3,CtF4,CtF5,CtF6,CtF7,CtF8,CtF9,CtF10,
  21.   AtF1,AtF2,AtF3,AtF4,AtF5,AtF6,AtF7,AtF8,AtF9,AtF10  : ARRAY[0..1] OF CHAR;
  22.  
  23.  
  24. PROCEDURE CompareKey(keysA,keysB: ARRAY OF CHAR) : BOOLEAN;
  25.  
  26. PROCEDURE InKey(VAR keys: ARRAY OF CHAR) : BOOLEAN;
  27.  
  28. PROCEDURE SpecialKey(keys: ARRAY OF CHAR) : BOOLEAN;
  29.  
  30. END PcKeys.
  31.